home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WWWworkbenchIB.lha / WWWworkbench / W4rename.ibrx < prev    next >
Encoding:
Text File  |  1998-09-09  |  1.3 KB  |  43 lines
  1. /* $VER: W4rename.brx  1.0
  2. *Made by Andres Pääbo (c)1998 : paabo@bancom.net
  3. *
  4. */
  5. OPTIONS RESULTS
  6. screen=getclip('screen')
  7.  
  8. ADDRESS 'IBROWSE'
  9. 'QUERY TITLE'
  10. currdir=result
  11.  
  12. ADDRESS COMMAND 'REQUESTFILE > RAM:W4/resultstring   TITLE "Select file to RENAME"  NOICONS  DRAWER "'currdir'" FILE "for a dir , make this blank" PUBSCREEN "'screen'"'
  13. if rc=5 then EXIT
  14. call open('resultstring','Ram:W4/resultstring',R)
  15. resultstring=readln('resultstring')
  16. resultstring=TRANSLATE(resultstring, ' ','"')
  17. resultstring=STRIP(resultstring)
  18. close('resultstring')
  19.  
  20. slashpos=LASTPOS('/', resultstring)
  21. renfile=SUBSTR(resultstring,slashpos+1)
  22. renameroot=LEFT(resultstring,slashpos-1)
  23. renamefile=renameroot'/'renfile
  24. if renfile='' then renamefile=renameroot
  25.  
  26. ADDRESS COMMAND 'REQUESTFILE > RAM:W4/resultstring   TITLE "ENTER NEW NAME"  NOICONS  DRAWER "'renameroot'" FILE "'renfile'" PUBSCREEN "'screen'"'
  27. if rc=5 then EXIT
  28. call open('resultstring','Ram:W4/resultstring',R)
  29. resultstring=readln('resultstring')
  30. resultstring=TRANSLATE(resultstring, ' ','"')
  31. resultstring=STRIP(resultstring)
  32. close('resultstring')
  33.  
  34. newnamefile=resultstring
  35. len=LENGTH(resultstring)
  36. if  RIGHT(resultstring,1)='/' then newnamefile = LEFT(resultstring,len-1)
  37.  
  38. ADDRESS COMMAND 'RENAME FROM "'renamefile'" TO "'newnamefile'"'
  39. call setclip('refresh', 1)
  40. ADDRESS COMMAND  'Sys:RexxC/RX  WWWworkbench/WWWworkbench.ibrx'
  41.  
  42. EXIT
  43.